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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR 

RRR 
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RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 
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ce 


L 12 


**F ILE**1D**PASBIN 
PPPPPPPP AAAAAA SSSSSSSS 8BBBBBBB IIIII1 NN NN 
PPPPPPPP AAAAAA SSSSSSSS 88888888 IIII11 NN NN 
PP PP AA AA SS BB II NN NN 
PP PP AA AA SS BB BB II NN NN 
PP PP AA AA SS BB BB II NNNN NN 
PP PP AA AA SS BB BB Il NNN NN 
PPPPPPPP AA Ab SSSSSS BBBBBBBB II NN NN NN 
PPPPPPPP Aa Aa SSSSSS B II NN NN NN 
PP ABBABARAAA SS 8B BB II NN NNN 
PP AAAAAAAAAA SS 8B BB II NN NNNN 
PP AL AA SS BB BB II NN NN ° 
PP AA AA SS 6B BB II NN NN 
PP AA AA SSSSSSSS BBBBBBBB IIIII1 NN NN 
PP Aas AA SSSSSSSS BBBBBBBB II1I11 NN NN ° 
LL III] SSSSSSSS 
LL 111! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 


—————____ 
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PASSBIN Convert value in base 2 to string o-300°13 4 9}: g8: $6 AX-11 Bliss-32 V4.0-742 Page 1 

4-Sep-1984 12: 0 PASRTLeS RCJPASBIN.B32; 1 (1) 

3 1 0001 MODULE PASSBIN ( Z&TITLE .fooyert value in base 2 to strin ss ; 

: ¢ $008 $OENT = '1-001' ' File: PASBIN.B32 Edit: $BL1001 
ie 0004 1 BEGIN 

3 5 9005 1! 

s § Boe : , SedoEveRSeReTNRtoTeNEReTeNHSeSESeNTENTeNeNeSESETENesReTeTeReneneTetensTelete 
° .* 2 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + 
3 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; + aide : os ALL RIGHTS RESERVED. * 
Ps H X 
3 \¢ Bote 1 !'® THIS ae. 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copied * 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi ceNse “= ane THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
; 15 0015 1 '* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i bole } ? TRANSFERRED. * 
3 i® © 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 poss ! 7° CORPORATION. * 
3 '® * 
° 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 2 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: @2 0025 1 !« * 
; 0026 1 !« * 
2 e7 0027 1 ASRS ESSSESSICSICT OSES TESST TES TTT C CC TCS CCPC CCC CCT TCC c ccc cee cece cece eee s 
; £2 0028 1! 

: @& 594 1 

; 0030 1 !++ 

.* ae 0031 1 ! FACILITY: Pascal Language Support 

: 32 ih 4 1! 

; 33 0033 1 | ABSTRACT: 

; 34 0034 1! 

; 35 0035 1! This module contains PAS$BIN which implements the 

3 39 Bo38 : VAX-11 Pascal BIN procedure. 

: 35 0038 ENVIRONMENT: User mode - AST reentrant 

: 40 0040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

; «4 0042 1! MODIFIED BY: 

: 43 0043 1! 

: «44 9044 1! 1-001 - Original. SBL 1-April-1981 

. 0045 1 i- 

; «646 046 1 


cst epson ninsinindassipenpdalstagiaticsnnaniaenasiadecemaeseeaidditicieed iametnendtiaies ae tatiesent 


| if 2 
S$BIN Convert value in base 2 to string 6-Sep-1984 $ 91 ge: $6 AX-11 Oh iss -32 v4.0 3549 
Declarations Sep-1984 2: 0 PASRTL. SRCI PASBIN.B32;1 


> 
& 


1-001 

; 648 pone 1 SSBTTL ‘Declarations’ 

3; «69 bee . 3 

3 29 0049 1 ! PROLOGUE DEFINITIONS 

3 1 0050 1! 

5 2g 0051 1 : 
3 27 Bo3¢ } REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
: = 0117 1! 

. oe 0118 1 ! TABLE OF CONTENTS: 

> oe 0119 1! 

: 0120 1 

: 59 818) 1 FORWARD ROUTINE . 
: 60 01 § 1 PAS$BIN: NOVALUE; ' Convert value in base 2 
, 6) 0125 #1 

;. § 0124 1! 

3 6 0125 1 ! MACROS: 

5 @& 0126 1! 

3; 6 0127 1! NONE 

; & 0128 1! 

= Or 0129 1 ! EQUATED SYMBOLS: 

: 68 0130 1! 

; & 0131 1! NONE 

3 70 0132 1! 

Pare 0135 1 ! FIELDS: 

3 72 0134 1! 

3 73 0135 1! NONE 

; 74 0136 1! 

RE ec , 0137 1 ! OWN STORAGE: 

; 6 0138 1! 

3 7? 0139 1! NONE 

; FT 0140 1! 

; 7 0141 1 

3 80 0142 1 !! If this is for a V2 system, redefine OTS$CVT_L_TB as PASSCVT_L_TB. 
,s BI L 0143 1 SIF %VARIANT 

; @2 U 0144 1 XTHEN 

; & u 0145 1 UNDE CLARE 

ee U 9146 1 OTSS$CV TB; 

; U 0147 1 EXTERNAL ROOTING: 

; U 0148 1 PASSCVT_L_TB; 

.3. oF U 0149 1 BIND ROUT INE 

; «88 u 0150 1 OTSSCVT_L_TB = PASSCVT_L_TB; 

; 2 «889 0151 1 &FI 


13 
PASSBIN Convert value in base 2 to peers 18-Sep-19 4 0}: 8:68 rete st V4.0-742 
1-001 PASSBIN = Convert value in base 2 to string 14-Sep-1984 12:51:20 PASRTL.SRCJPASBIN.B32; 1 
; 01 § 1 ZSBTTL 'PASSBIN = Convert value in base 2 to string’ 
: 8§ 01 1 GLOBAL ROUTINE PASS$BIN ( 
;.§ 4 4 1 RESULT: REF VECTOR C, BYTE), ! Result string. 
: 94 155 1 TOTAL_WIDTH: WORD SIGNED, i Total field width 
; 8128 1 NBITS, ' Size of value in bits 
i ve 0157 1 VALUE ! Address of value 
: 97 0158 1 MIN DIGITS: SIGNED i Minimum number of digits 
; «98 0159 1 ): NOVACUE = 
; 0160 1 
: 100 0161 1 !++ 
s 10) 8106 1 ! FUNCTIONAL DESCRIPTION: 
; 196 0163 1! ; 
; W@W 0164 1! This procedure implements the VAX-11 Pascal BIN function. It 
; 104 0165 1! converts a value to an ASCII representation in base 2 and stores 
; 105 0166 1! that result in a string. 
> 106 0167 1! 
: 107 0168 1 ! CALLING SEQUENCE: 
; 108 0169 1! 
; 109 0170 1! CALL PAS$BIN (RESULT.wt.r, TOTAL_WIDTH.rw.v, NBITS.rl.v, VALUE.rz.r 
s 110 0171 1! C, MIN_DIGITS.rl.vJ) 
.- was 0172 1! 
: 136 0173 1 ! FORMAL PARAMETERS: 
: 11 0174 1: 
3 113 ateg : RESULT - The string into which the result will be placed. 
; 116 0177 1! TOTAL_WIDTH - Total field width. 
: 117 0178 1! . ; i 
: 118 0179 1! NBITS - The size of VALUE in bits. 
: 119 0180 1! : 
; 130 B13) ! VALUE - The address of the value to write. 
: 122 0185 . MIN_DIGITS - Optional. The minimum number of digits to appear 
; tes 0184 1! in the result. Defaults to the minimum necessary 
: 124 0185 1! to represent every bit of the value. 
3 6125 0186 1! 
s 1 0187 1 =! IMPLICIT INPUTS: 
» Ger 0188 1! 
; tea 0189 1! NONE 
: i 0190 1! 
s 150 0191 1 ! IMPLICIT OUTPUTS: 
: 131 0192 1! 
s ise 0193 1! NONE 
s 135 0194 1! 
: «134 0195 1 ! ROUTINE VALUE: 
eb 0196 1! 
; «4136 0197 1! NONE 
s 137 0198 1! 
; tae 0199 1 ! SIDE EFFECTS: 
; «#4139 0200 1! 
; 140 0201 1! NONE 
: «141 ose 1! 
3; 142 0205 1 ! SIGNALLED ERRORS: 
3 «143 0204 1! Se : 
; “6 Oso2 ' : NEGDIGARG - negative ‘‘digits’’ argument to BIN, HEX or OCT is not allowed 
: 168 0907 1 !-- 
3 (14 0208 1 


Page 


PAseeIN 
1-001 


2 I III III IO IF 


POPOPONPINPIPOAINMPINPINIPY POPPIN NOPoNoNoPonononononororopnononoronorofponoporpofprnrrnn PO 


DOO OOO WW WH D0 NN NIN NNN SNS AAA AAA AAA MINNIS 
BPP REE EEE PAWN inopononopo nono neonor 


oc 


POR ONIN ee at a tt at tt tt a a ss 
CSGDOSCOSOSOSCOOSOOSOOOSOSCOCOSOSCOCO CSS OOS COSCO SCOCOCCOOCOOCOOCOOCOCOOOCOOCOODOOOOCOOOO UVF 
MEW O OONA UENO OONAUE WIN 0 OONOAUE WN SO OONAUES WN" OOONOUFSWN—O”0 we 


Be Oe Oe Be Be Se Be Se Se Be Se Se Be Se Ge Se Se Se Ge Se Ss ae BH Be Ge Fe Ge Se Se Ge Se Se Se Se Ge Se Se Be OH SH Ss HS Oe G8 ee Oe SHOE Ose Se oe BH SH BH ee 


ROMIPOPGPONINIMPOPNONNPofonofny» 
PEEPS MAMA 


ee | 


woe 
RIPQPIPIMPYPDPDNIDPDNYNNINPONYNINYININPINPIPININI WAAAIAIRIPIPONINIPYINPIDPINPUNINPINIPINPINIPNNPONPNOR /Porornornororposfnnn»= Ze 


t< 


14 
; Set initial values for conversion. 


ACTUAL _NBI 
ACTUAL_DIG 
14 

Create result string descriptor with actual width. 


TS = .NB 
ITS = .A 


S; 
S = .ACTUAL_NBITS; 


DESCR COSC$B_CLASS] = DSCSK_CLASS_S; 
DESCR CDSC$B_DTYPEJ = DSCSK _DTYPE_T; 
DESCR CDSC$A_POINTER) = RESOLT (OT; 


IF ACTUALCOUNT () GEQU 5 
THEN 
BEGIN 
ACTUAL_DIGITS = .MIN_DIGITS; 
HF ACTUAL DIGITS Ls§ 0 
. SIGNAL_STOP (PAS$_NEGDIGARG); 


een CDSCS$W_LENGTH) = .TOTAL_WIDTH; 

vii TOTAL_WIDTH truncate the value? 

IF a Pete, Mate LSSU .ACTUAL_NBITS 
ACTUAL_NBITS = .TOTAL_WIDTH; 

rt pie TUM, DEES GTRU .TOTAL_WIDTH 
ACTUAL_DIGITS = .TOTAL_WIDTH; 

'¢ 


: Do the conversion. We assume it won't fail. 


OTSSCVT_L_TB (.VALUE, DESCR, .ACTUAL_DIGITS, .ACTUAL_NBITS, 
M_SIZE_IN_BITS); 


RETURN; 


13 
alue in base 2 to ty - 18-Sep-1984 1: $368 ee Lt V4.0=742 
Convert value in base 2 to string 14-Sep-1984 12:51:20 PASRTL.SRCJPASBIN.B32;1 
BEGIN 
ACTUAL_DIGITS, ! Number of digits actually used 
ACTUAL_NBITS, ! Value size actually used 
DESCR: BLOCK (8, BYTE); ! String descriptor 
LITERAL 
M_SIZE_IN_BITS = %x'04'; ! Flags argument for 
! convert routine 
BUILTIN 
ACTUALCOUNT; 


Page 4 


! Negative ‘‘digits’’ argument to BIN, HEX or OCT is not allow. 


| 


| 
| 
| 
| 


PASSBIN Convert value in base 2 to a , 16- =138¢ 01:98: g8 AX=11 Bliss-32 V4.0-742 Page 5 
1-001 PASSBIN = Convert value in base 2 to string 14-Sep-1984 12:51:20 PASRTL.SRCJP PASBY N.B32;1 (3) 
; 205 9566 ¢ 
; 06 026 END; ' End of routine PAS$BIN 
-TITLE PAS$BIN Convert value in base 2 to string 
-IDENT \1-001\ 
EXTRN PASS$BIN, PAS$_NEGDIGARG 
-EXTRN OTSSCVT_L_TB 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
000C 00000 «ENTRY ag Save R2,R3 ; 0153 
25 08 C2 00002 SUBL2 F 
5 0c AC DO 00005 MOVL NBITS. ACTUAL_NBITS + 0226 
52 53 DO 00009 MOVL ACTUAL_NBITS, ACTUAL_DIGITS 3 0227 
02. AE 010E  8F B80 0000C MOVW #270, BDESCR+2 > 0234 
04 AE AC DO 90012 MOVL RESULT. DESCR+4 3 0235 
05 6C 91 0001 CMPB (AP), #5 3; 0237 
13° 1F OOOITA BLSSU 3 
52 14 AC 00 0001C MOVL MIN_DIGITS, ACTUAL_DIGITS 3 0240 
OD 18 00020 BGEQ 3 0241 
00000000G 8F DD 00022 PUSHL #PAS$_NEGDIGARG 3; 0243 
00000000G 00 01 FB 00028 CALLS #1, L STOP ; 
50 08 AC 32 OO02F 1$ CVTWL  TOTAL_WIDTH, RO : 0246 
6E 50 BO 00033 MOVW RO, DESCR : 
53 50 D1 00036 CMPL RO, ACTUAL_NBITS : 0250 
03 1E 00039 BGEQU§ 2$ : 
53 50 DO 00038 MOVL RO, ACTUAL_NBITS 3 0252 
50 52 D1 OOO3E 28 CMPL ACTUAL DIGITS, RO : 0254 
03 1B 00041 BLEQU $ ; 
52 50 DO 00043 MOVL RO, ACTUAL_DIGITS : 0256 
04 DD 00046 3$: PUSHL 4&4 3; 0262 
OC BB 00048 PUSHR #*M<R2,R3> : 
OC AE 9F OO04A PUSHAB DESCR : 
10 AC DD 0004D PUSHL VALUE : 
000000006 00 05 FB 00050 CALLS #5, OTSSCVT_L_TB F 
04 00057 RET ; 0267 


; Routine Size: 88 bytes, Routine Base: _PASS$CODE + 0000 


207 0268 1 
208 0269 1 !<BLF/PAGE> 


un 


E 13 
ASB BRRRBTN H*UGhaerehGSts HR BEEE"E to string TEREBCHSEL Q2:99:25 EMAIL SUAESAZS tN: 3237 teed ie | 
; a a ! END ! End of module PAS$BIN 
; 212 0272 0 ELUDOM 
-EXTRN LIBS$STOP 
: PSECT SUMMARY 
; Name Bytes Attributes 
; PASSCODE 88 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Pte 8s na i ee ae Le Lo 2, eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 | 
; _$255$DUA28: CPASRTL.OBJIJPASLIB.L32;1 427 3 0 33 00:00.4 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:PASBIN/OBJ=OBJ$:PASBIN MSRC$:PASBIN/UPDATE=(ENHS$:PASBIN) 


: Size: 88 code + 0 data bytes 
; Run Time: 00:04.4 

: Elapsed Time: 00:17.3 

; Lines/CPU Min: 3700 

3 Lexemes/CPU-Min: 8081 

; pees | Used: 52 pages 

: a 


; Compilation Complete 


293 AH-BT13A-SE—s_~s- : PMENT CORPORATION 
Lee oF, A 
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